home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / newwbcontrolloop.s < prev    next >
Text File  |  1997-01-31  |  48KB  |  2,497 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'AB3:includes/titlescrnraw',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'AB3:includes/titlescrnraw1',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43.  
  44.  
  45.  
  46. ProtValA: dc.l 0
  47. ProtValB: dc.l 0
  48. ProtValC: dc.l 0
  49. ProtValD: dc.l 0
  50. ProtValE: dc.l 0
  51. ProtValF: dc.l 0
  52. ProtValG: dc.l 0
  53. ProtValH: dc.l 0
  54. ProtValI: dc.l 0
  55. ProtValJ: dc.l 0
  56. ProtValK: dc.l 0
  57. ProtValL: dc.l 0
  58. ProtValM: dc.l 0
  59. ProtValN: dc.l 0
  60.  
  61.  
  62. KVALTOASC:
  63.         Dc.b    " `  "," 1  "," 2  "," 3  "
  64.         dc.b    " 4  "," 5  "," 6  "," 7  "
  65.         dc.b    " 8  "," 9  "
  66. ; 10
  67.         Dc.b    " 0  "," -  "," +  "," \  "
  68.         dc.b     '    ','    '," Q  "," W  "
  69.         dc.b    " E  "," R  "
  70. ; 20
  71.         Dc.b    " T  "," Y  "," U  "," I  "
  72.         dc.b    " O  "," P  "," [  "," ]  "
  73.         dc.b    '    ','KP1 '
  74. ; 30
  75.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  76.         dc.b    " D  "," F  "," G  "," H  "
  77.         dc.b    " J  "," K  "
  78. ;40
  79.         Dc.b    " L  "," ;  "," #  ",'    '
  80.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  81.         dc.b    '    '," Z  "
  82. ;50
  83.         Dc.b    " X  "," C  "," V  "," B  "
  84.         dc.b    " N  "," M  "," ,  "," .  "
  85.         dc.b     " /  ",'    '
  86. ;60
  87.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  88.         dc.b    'SPC ','<-- ','TAB ','ENT '
  89.         dc.b    'RTN ','ESC '
  90. ;70
  91.         Dc.b    'DEL ','    ','    ','    '
  92.         dc.b    'KP- ','    ','UCK ','DCK '
  93.         dc.b    'RCK ','LCK '
  94. ;80
  95.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  96.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  97.         dc.b    'FK9 ','FK0 '
  98. ;90
  99.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  100.         dc.b    'KP+ ','HLP ','LSH ','RSH '
  101.         dc.b    'CPL ','CTL '
  102. ;100
  103.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  104.         dc.b    '    ','    ','    ','    '
  105.         dc.b    '    ','    '
  106.         Dc.b    '    ','    ','    ','    '
  107.         dc.b    '    ','    ','    ','    '
  108.         dc.b    '    ','    '
  109.  
  110.  even
  111.  
  112. FINISHEDLEVEL: dc.w 0
  113.  
  114.  
  115. START:
  116.  
  117.  move.b #'n',mors  
  118.  
  119. ************************************88
  120. * TAKE OUT WHEN PLAYING MODULE AGAIN
  121. ********************************
  122. ProtChkBLev1:
  123.     PRSDF
  124.     PRSDE
  125. ************************************
  126.  
  127. ; move.l #PROTCALLENC,a0
  128. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  129. ; move.l #$75055345,d0
  130. ;codeitup:
  131. ; sub.l d0,(a0)+
  132. ; ror.l #1,d0
  133. ; dbra d1,codeitup
  134. ; rts
  135.  
  136.  jsr Open256Screen
  137.  
  138. ProtChkCLev1:
  139.  PRSDA
  140.  
  141. ; move.w #$7201,titleplanes
  142.  
  143.  move.l 4.w,a6
  144.  move.l #doslibname,a1
  145.  moveq #0,d0
  146.  jsr -552(a6)
  147.  move.l d0,doslib
  148.  
  149.  move.l doslib,a6
  150.  move.l #LINKname,d1
  151.  move.l #1005,d2
  152.  jsr -30(a6)
  153.  move.l d0,LLhandle
  154.  
  155.  move.l doslib,a6
  156.  move.l d0,d1
  157.  move.l #LINKSPACE,d2
  158.  move.l #90000,d3
  159.  jsr -42(a6)
  160.  
  161.  move.l doslib,a6
  162.  move.l LLhandle,d1
  163.  jsr -36(a6)
  164.  
  165.  
  166.  PRSDS
  167. ; jsr stuff
  168.  
  169.  jsr _InitLowLevel
  170.  
  171. ; jsr CLEARTITLEPAL
  172.  
  173. ProtChkDLev1:
  174.  PRSDT
  175.  
  176. ; move.w #$20,$dff1dc
  177. ; move.l #titlecop,$dff080
  178.  PRSDV
  179. ; move.w #$87c0,$dff000+dmacon
  180. ; move.w #$8020,$dff000+dmacon
  181. ProtChkMLev1:
  182.  move.w $dff006,d0
  183.  lea RVAL2-100(pc),a0
  184.  add.w d0,100(a0)
  185.  
  186.  bsr GETTITLEMEM
  187. ProtChkELev1:
  188.  PRSDU
  189. ; bsr CLROPTSCRN
  190.  
  191. ; bsr SETUPTITLESCRN
  192.  
  193. ; jsr _InitPlayer
  194.  
  195. ; move.l #INTROTUNENAME,a0
  196. ; jsr _LoadModule
  197. ; move.l d0,INTROTUNEADDR
  198.  PRSDY
  199. ; move.l d0,a0
  200. ; jsr _InitModule
  201.  
  202. ; move.l INTROTUNEADDR,a0
  203. ; jsr _PlayModule
  204. ProtChkFLev1:
  205.  PRSDa
  206.  bsr LOADTITLESCRN2
  207.  
  208.  FLASHER $0f0,$fff
  209.  
  210.  move.w #0,FADEVAL
  211.  move.w #63,FADEAMOUNT
  212.  bsr FADEUPTITLE
  213.  PRSDB
  214.  jsr LOADWALLS
  215.  jsr LOADFLOOR
  216.  jsr LOADOBS
  217.  PRSDZ
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  move.w #31,FADEAMOUNT
  224.  PRSDC
  225.  bsr FADEDOWNTITLE 
  226.  
  227. ; IFEQ CD32VER 
  228. ; bsr ASKFORDISK
  229. ; ENDC
  230. ; IFNE CD32VER
  231.  PRSDD
  232. ; ENDC
  233.  
  234.  jsr LOAD_SFX
  235. ; jsr _StopPlayer
  236.  PRSDW
  237.  PRSDX
  238. ; jsr _RemPlayer
  239.  
  240.  
  241.  IFNE CD32VER
  242.  move.l doslib,a6
  243.  move.l #115,d1
  244.  jsr -198(a6)
  245.  ENDC
  246.  
  247. ; move.l #newblag,$80
  248. ; trap #0
  249. ; bra JUMPPASTIT
  250. ; rts
  251. ;
  252. ;newblag:
  253.  
  254.  
  255. ProtChkGLev1:
  256. ; bsr PROTSETUP
  257.  bsr DEFAULTGAME
  258.  
  259. ; move.l INTROTUNEADDR,a0
  260. ; jsr _UnLoadModule
  261.  
  262. ; IFEQ CD32VER
  263. ; jsr KInt_Init
  264. ; ENDC
  265. ProtChkHLev1:
  266. ; rte
  267. ;
  268. ;JUMPPASTIT:
  269. ; 
  270.  
  271. BACKTOMENU:
  272.  
  273.  jsr CLEARKEYBOARD
  274.  
  275. ; cmp.b #'s',mors
  276. ; beq.s BACKTOSLAVE
  277. ; cmp.b #'m',mors
  278. ; beq.s BACKTOMASTER
  279. ; bsr READMAINMENU
  280. ; bra DONEMENU
  281. ;BACKTOMASTER:
  282. ; bsr MASTERMENU
  283. ; bra DONEMENU
  284. ;BACKTOSLAVE:
  285. ; bsr SLAVEMENU
  286. ;DONEMENU:
  287.  
  288.  
  289.  bsr WAITREL
  290.  
  291. ; IFEQ CD32VER
  292. ; move.l OLDKINT,$68.w
  293. ; ENDC
  294.  
  295.  bsr CLRSPRITES
  296.  
  297.  move.w #31,FADEAMOUNT
  298.  bsr FADEUPTITLE
  299.  move.w #63,FADEAMOUNT
  300.  bsr FADEDOWNTITLE
  301.  
  302.  move.w #$0201,titleplanes
  303.  
  304.     FILTER
  305.     
  306.  tst.b SHOULDQUIT
  307.  bne QUITTT
  308.  
  309.  bsr RELEASETITLEMEM
  310.  
  311.   
  312.  jsr LOADBOTPIC
  313.  
  314.   
  315.  clr.b FINISHEDLEVEL
  316.  
  317.  move.w #0,PLR1s_angpos
  318.  move.w #0,PLR2s_angpos
  319.  move.w #0,PLR1_angpos
  320.  move.w #0,PLR2_angpos
  321.  move.b #0,PLR1_GunSelected
  322.  move.b #0,PLR2_GunSelected
  323.  
  324. **************************8
  325.  clr.b NASTY
  326. *************************** 
  327.  
  328.  
  329.     jsr PLAYTHEGAME
  330.  
  331.  bsr FREEBOTMEM 
  332.  
  333. ; bra QUITTT
  334.  
  335.  tst.b FINISHEDLEVEL
  336.  beq dontusestats
  337.  bsr CALCPASSWORD
  338. dontusestats:
  339.  bsr PASSLINETOGAME
  340.  bsr GETSTATS
  341.  
  342.  bsr GETTITLEMEM
  343. ; bsr CLROPTSCRN
  344. ; bsr SETUPTITLESCRN
  345.  
  346. ; bsr LOADTITLESCRN2
  347. ; move.w #$7201,titleplanes
  348.  
  349. ; move.w #$20,$dff1dc
  350. ; move.l #titlecop,$dff080
  351. ; move.w #$87c0,$dff000+dmacon
  352. ; move.w #$8020,$dff000+dmacon 
  353.  
  354.  move.w #0,FADEVAL
  355.  move.w #63,FADEAMOUNT
  356.  bsr FADEUPTITLE
  357.  
  358.  move.w #31,FADEAMOUNT
  359.  bsr FADEDOWNTITLE 
  360.  
  361. ; IFEQ CD32VER
  362. ; jsr KInt_Init
  363. ; ENDC
  364.  
  365.  bra BACKTOMENU
  366.  
  367. QUITTT:
  368.  
  369.  move.l LEVELDATA,d1
  370.  move.l d1,a1
  371.  move.l #120000,d0
  372.  move.l 4.w,a6
  373.  jsr -210(a6)
  374.  
  375.  move.l TEXTSCRN,d1
  376.  move.l d1,a1
  377.  move.l #10240*2,d0
  378.  move.l 4.w,a6
  379.  jsr -210(a6)
  380.  
  381.  move.l FASTBUFFER,d1    
  382.  move.l #2*320*256,d0
  383.  move.l 4.w,a6
  384.  jsr -210(a6)
  385.  
  386.  jsr RELEASEWALLMEM
  387.  jsr RELEASESAMPMEM
  388.  jsr RELEASEFLOORMEM
  389.  jsr RELEASEOBJMEM
  390.   
  391.  move.l old,$dff080
  392.  move.l 4.w,a6
  393.  lea VBLANKInt,a1
  394.  moveq #INTB_COPER,d0
  395.  jsr _LVORemIntServer(a6)
  396.  
  397.  move.l 4.w,a6
  398.  lea KEYInt,a1
  399.  moveq #INTB_PORTS,d0
  400.  jsr _LVORemIntServer(a6)
  401.  
  402.  move.w #$f8e,$dff1dc
  403.  
  404.  move.l old,$dff080
  405.  move.w _storeint,d0
  406.  or.w d0,$dff000+intena
  407.  
  408. ; move.l    4.w,a6
  409. ; jsr    _LVOPermit(a6)
  410.  
  411.  
  412.  move.l #0,d0
  413.  
  414.  rts
  415.  
  416. SSTACK: dc.l 0
  417.  
  418. ; KEY OPTIONS:
  419. CONTROLBUFFER:
  420. turn_left_key:
  421.  dc.b $4f
  422. turn_right_key:
  423.  dc.b $4e
  424. forward_key:
  425.  dc.b $4c
  426. backward_key:
  427.  dc.b $4d
  428. fire_key:
  429.  dc.b $65
  430. operate_key:
  431.  dc.b $40
  432. run_key:
  433.  dc.b $61
  434. force_sidestep_key:
  435.  dc.b $67
  436. sidestep_left_key:
  437.  dc.b $39
  438. sidestep_right_key:
  439.  dc.b $3a
  440. duck_key:
  441.  dc.b $22
  442. look_behind_key:
  443.  dc.b $28
  444.  
  445. templeftkey: dc.b 0
  446. temprightkey: dc.b 0
  447. tempslkey: dc.b 0 
  448. tempsrkey: dc.b 0
  449.  
  450.  even 
  451.  
  452. GETSTATS:
  453. ; CHANGE PASSWORD INTO RAW DATA
  454.  
  455.  move.b PASSBUFFER,d0
  456.  and.w #$7f,d0
  457.  move.w d0,PLR1_energy
  458.  move.b PASSBUFFER+1,d0
  459.  btst #7,d0
  460.  sne PLR1_GunData+32+7
  461.  btst #6,d0
  462.  sne PLR1_GunData+32*2+7
  463.  btst #5,d0
  464.  sne PLR1_GunData+32*4+7
  465.  btst #4,d0
  466.  sne PLR1_GunData+32*7+7
  467.  and.w #%1111,d0
  468.  move.w d0,MAXLEVEL
  469.  move.b PASSBUFFER+2,d0
  470.  and.w #$7f,d0
  471.  lsl.w #3,d0
  472.  move.w d0,PLR1_GunData
  473.  move.b PASSBUFFER+3,d0
  474.  and.w #$7f,d0
  475.  lsl.w #3,d0
  476.  move.w d0,PLR1_GunData+32
  477.  move.b PASSBUFFER+4,d0
  478.  and.w #$7f,d0
  479.  lsl.w #3,d0
  480.  move.w d0,PLR1_GunData+32*2
  481.  move.b PASSBUFFER+5,d0
  482.  and.w #$7f,d0
  483.  lsl.w #3,d0
  484.  move.w d0,PLR1_GunData+32*4
  485.  move.b PASSBUFFER+6,d0
  486.  and.w #$7f,d0
  487.  lsl.w #3,d0
  488.  move.w d0,PLR1_GunData+32*7
  489.  rts
  490.  
  491.  
  492. SETPLAYERS:
  493.  
  494.  move.w PLOPT,d0
  495.  add.b #'a',d0
  496.  move.b d0,LEVA
  497.  move.b d0,LEVB
  498.  move.b d0,LEVC
  499.  move.b d0,LEVD
  500.  
  501.  cmp.b #'s',mors
  502.  beq SLAVESETUP
  503.  cmp.b #'m',mors
  504.  beq MASTERSETUP
  505.  st NASTY
  506. onepla:
  507.  rts
  508.  
  509. NASTY: dc.w 0
  510.  
  511. MASTERSETUP:
  512.  bsr TWOPLAYER
  513.  clr.b NASTY
  514.  move.w PLOPT,d0
  515.  jsr SENDFIRST
  516.  rts
  517.  
  518. SLAVESETUP:
  519.  bsr TWOPLAYER
  520.  CLR.B NASTY
  521.  jsr RECFIRST
  522.  move.w d0,PLOPT
  523.  add.b #'a',d0
  524.  move.b d0,LEVA
  525.  move.b d0,LEVB
  526.  move.b d0,LEVC
  527.  rts
  528.      
  529. ********************************************************
  530.  
  531. ASKFORDISK:
  532.  lea RVAL1+300(pc),a0
  533.  lea RVAL2+900(pc),a1
  534.  PRSDD
  535.  move.w #3,OptScrn
  536.  bsr DRAWOPTSCRN
  537.  
  538. ProtChkNLev1:
  539. .wtrel:
  540.  btst #7,$bfe001
  541.  beq.s .wtrel
  542.  
  543. wtclick:
  544.  add.w #$235,-300(a0)
  545.  add.w #$4533,-900(a0)
  546.  btst #6,$bfe001
  547.  bne.s wtclick
  548.  
  549.  rts
  550.  
  551. CLRSPRITES: 
  552.  move.l #nullspr,d0
  553.  move.w d0,tsp0l
  554.  move.w d0,tsp1l
  555.  move.w d0,tsp2l
  556.  move.w d0,tsp3l
  557.  move.w d0,tsp4l
  558.  move.w d0,tsp5l
  559.  move.w d0,tsp6l
  560.  move.w d0,tsp7l
  561.  swap d0
  562.  move.w d0,tsp0h
  563.  move.w d0,tsp1h
  564.  move.w d0,tsp2h
  565.  move.w d0,tsp3h
  566.  move.w d0,tsp4h
  567.  move.w d0,tsp5h
  568.  move.w d0,tsp6h
  569.  move.w d0,tsp7h 
  570.  rts
  571.  
  572. ********************************************************
  573.  
  574. READMAINMENU:
  575.  
  576.  
  577.  move.b #'n',mors
  578.  
  579.  move.w MAXLEVEL,d0
  580.  
  581.  move.l #CURRENTLEVELLINE,a1
  582.  muls #40,d0
  583.  move.l #LEVEL_OPTS,a0
  584.  add.l d0,a0
  585.  bsr PUTINLINE
  586.  
  587.  
  588.  
  589. ; Stay here until 'play game' is selected.
  590.  
  591.  move.w #0,OptScrn
  592.  bsr DRAWOPTSCRN
  593.  move.w #1,OPTNUM
  594.  
  595.  bsr HIGHLIGHT
  596.  
  597.  
  598.  
  599.  bsr WAITREL
  600. .rdlop:
  601.  
  602.  bsr CHECKMENU
  603.  tst.w d0
  604.  blt.s .rdlop
  605.  
  606. ; bne .noopt
  607. ; 
  608. ; bra MASTERMENU
  609. ; 
  610. ;.noopt:
  611.  
  612. ; cmp.w #5,d0
  613. ; bne.s .noqui
  614. ; st SHOULDQUIT
  615. ; bra playgame
  616. ;.noqui
  617.  
  618.  cmp.w #1,d0
  619.  beq playgame
  620.  
  621.  cmp.w #2,d0
  622.  bne .nocontrol
  623.  
  624.  bsr CHANGECONTROLS
  625.  
  626.  move.w #0,OptScrn
  627.  bsr DRAWOPTSCRN
  628.  move.w #0,OPTNUM
  629.  
  630.  bsr HIGHLIGHT
  631.  
  632.  bsr WAITREL
  633.  bra .rdlop
  634.  
  635. .nocontrol:
  636.  
  637. ; cmp.w #3,d0
  638. ; bne .nocred
  639. ; bsr SHOWCREDITS
  640. ; move.w #0,OptScrn
  641. ; bsr DRAWOPTSCRN
  642. ; move.w #1,OPTNUM
  643. ;
  644. ; bsr HIGHLIGHT
  645. ;
  646. ; bsr WAITREL
  647. ; bra .rdlop
  648.  
  649.  
  650. ;.nocred:
  651.  
  652. ; cmp.w #4,d0
  653. ; bne playgame
  654. ; bsr WAITREL
  655. ;
  656. ; move.l #PASSWORDLINE+12,a0
  657. ; moveq #15,d2
  658. ;.clrline:
  659. ; move.b #32,(a0)+
  660. ; dbra d2,.clrline 
  661. ; move.w #0,OptScrn
  662. ; bsr DRAWOPTSCRN
  663. ;
  664. ; IFEQ CD32VER
  665. ; clr.b lastpressed
  666. ; move.l #PASSWORDLINE+12,a0
  667. ; move.w #0,d1
  668. ;.ENTERPASS:
  669. ; tst.b lastpressed
  670. ; beq .ENTERPASS
  671. ; move.b lastpressed,d2
  672. ; move.b #0,lastpressed
  673. ; move.l #KVALTOASC,a1
  674. ; 
  675. ; cmp.l #'<-- ',(a1,d2.w*4)
  676. ; bne .nodel
  677. ;
  678. ; tst.b d1
  679. ; beq .nodel
  680. ;
  681. ; subq #1,d1
  682. ; move.b #32,-(a0)
  683. ; movem.l d0-d7/a0-a6,-(a7)
  684. ; bsr JUSTDRAWIT
  685. ; movem.l (a7)+,d0-d7/a0-a6
  686. ; bra .ENTERPASS
  687. ;
  688. ;.nodel:
  689. ; 
  690. ; cmp.l #'RTN ',(a1,d2.w*4)
  691. ; beq .FORGETIT
  692. ; cmp.l #'ESC ',(a1,d2.w*4)
  693. ; beq .FORGETIT
  694. ; move.b 1(a1,d2.w*4),d2
  695. ; cmp.b #65,d2
  696. ; blt .ENTERPASS
  697. ; cmp.b #'Z',d2
  698. ; bgt .ENTERPASS
  699. ; move.b d2,(a0)+
  700. ; move.w #0,OptScrn
  701. ; movem.l d0-d7/a0-a6,-(a7)
  702. ; bsr JUSTDRAWIT
  703. ; movem.l (a7)+,d0-d7/a0-a6
  704. ; add.w #1,d1
  705. ; cmp.w #16,d1
  706. ; blt .ENTERPASS
  707. ;
  708. ; ENDC
  709. ; IFNE CD32VER
  710. ; move.l #PASSWORDLINE+12,a0
  711. ; move.w #15,d0
  712. ;.ENTERPASS:
  713. ; bsr GETACHAR
  714. ; dbra d0,.ENTERPASS
  715. ; ENDC
  716. ;
  717. ; bsr PASSLINETOGAME
  718. ; tst.w d0
  719. ; bne .FORGETIT
  720. ; 
  721. ; bsr GETSTATS
  722. ; move.w MAXLEVEL,d0
  723. ; move.l #CURRENTLEVELLINE,a1
  724. ; muls #40,d0
  725. ; move.l #LEVEL_OPTS,a0
  726. ; add.l d0,a0
  727. ; bsr PUTINLINE
  728. ;
  729. ;.FORGETIT:
  730. ; bsr WAITREL
  731. ; bsr CALCPASSWORD
  732. ;
  733. ; move.w #0,OptScrn
  734. ; bsr DRAWOPTSCRN
  735. ;
  736. ; move.w #1,OPTNUM
  737. ;
  738. ; bsr HIGHLIGHT
  739. ;
  740. ; bra .rdlop 
  741.  
  742. playgame:
  743.  move.w MAXLEVEL,PLOPT
  744.  rts
  745.  
  746. SHOULDQUIT: dc.w 0
  747.  
  748. LEVELSELECTED:
  749.  dc.w 0
  750.  
  751.  IFNE CD32VER
  752. GETACHAR:
  753.  moveq #0,d7
  754.  move.b #'A',(a0)
  755.  movem.l d0-d7/a0-a6,-(a7)
  756.  jsr JUSTDRAWIT
  757.  movem.l (a7)+,d0-d7/a0-a6
  758.  
  759. .wtnum:
  760.  btst #1,$dff00c
  761.  sne d1
  762.  btst #1,$dff00d
  763.  sne d2
  764.  btst #0,$dff00c
  765.  sne d3
  766.  btst #0,$dff00d
  767.  sne d4
  768.  
  769.  eor.b d1,d3
  770.  eor.b d2,d4
  771.  
  772.  tst.b d1
  773.  beq.s .NODELETE
  774.  cmp.w #15,d0
  775.  beq.s .NODELETE
  776.  move.b #32,(a0)
  777.  subq #1,a0
  778.  addq #1,d0
  779.  move.b (a0),d7
  780.  sub.b #'A',d7
  781.  movem.l d0-d7/a0-a6,-(a7)
  782.  jsr JUSTDRAWIT
  783.  movem.l (a7)+,d0-d7/a0-a6
  784.  jsr WAITFORNOPRESS
  785.  bra .wtnum
  786. .NODELETE
  787.  
  788.  tst.b d4
  789.  bne.s .PREVNUM
  790.  tst.b d3
  791.  bne.s .NEXTNUM
  792.  btst #7,$bfe001
  793.  bne.s .wtnum
  794.  addq #1,a0
  795.  jsr WAITFORNOPRESS
  796.  rts
  797.  
  798. .PREVNUM:
  799.  subq #1,d7
  800.  bge.s .nonegg
  801.  moveq #15,d7
  802. .nonegg:
  803.  move.b d7,d1
  804.  add.b #'A',d1
  805.  move.b d1,(a0)
  806.  movem.l d0-d7/a0-a6,-(a7)
  807.  jsr JUSTDRAWIT
  808.  movem.l (a7)+,d0-d7/a0-a6
  809.  
  810.  jsr WAITFORNOPRESS
  811.  
  812.  bra .wtnum
  813.  
  814. .NEXTNUM:
  815.  addq #1,d7
  816.  cmp.w #15,d7
  817.  ble.s .nobigg
  818.  moveq #0,d7
  819. .nobigg:
  820.  move.b d7,d1
  821.  add.b #'A',d1
  822.  move.b d1,(a0)
  823.  movem.l d0-d7/a0-a6,-(a7)
  824.  jsr JUSTDRAWIT
  825.  movem.l (a7)+,d0-d7/a0-a6
  826.  jsr WAITFORNOPRESS
  827.  bra .wtnum
  828.  rts
  829.  ENDC
  830.  
  831.  
  832. MASTERMENU:
  833.  
  834.  move.b #'m',mors
  835.  
  836.  move.w #0,LEVELSELECTED
  837.  
  838.  move.w #0,d0 
  839.  move.l #CURRENTLEVELLINEM,a1
  840.  muls #40,d0
  841.  move.l #LEVEL_OPTS,a0
  842.  add.l d0,a0
  843.  bsr PUTINLINE
  844.  
  845. ; Stay here until 'play game' is selected.
  846.  
  847.  move.w #4,OptScrn
  848.  bsr DRAWOPTSCRN
  849.  move.w #1,OPTNUM
  850.  
  851.  bsr HIGHLIGHT
  852.  
  853.  bsr WAITREL
  854. .rdlop:
  855.  bsr CHECKMENU
  856.  tst.w d0
  857.  blt.s .rdlop
  858.  bsr WAITREL
  859.  
  860.  cmp.w #1,d0
  861.  bne.s .nonextlev
  862.  
  863.  move.w LEVELSELECTED,d0
  864.  add.w #1,d0
  865.  cmp.w MAXLEVEL,d0
  866.  blt .nowrap
  867.  moveq #0,d0
  868. .nowrap:
  869.  move.w d0,LEVELSELECTED
  870.  move.l #CURRENTLEVELLINEM,a1
  871.  muls #40,d0
  872.  move.l #LEVEL_OPTS,a0
  873.  add.l d0,a0
  874.  bsr PUTINLINE
  875.  bsr JUSTDRAWIT
  876.  bra .rdlop
  877.  
  878. .nonextlev:
  879.  cmp.w #2,d0
  880.  beq .playgame
  881.  
  882.  cmp.w #0,d0
  883.  bne .noopt
  884.  
  885.  bra SLAVEMENU
  886.  
  887. .noopt:
  888.  
  889.  cmp.w #3,d0
  890.  bne .nocontrol
  891.  
  892.  bsr CHANGECONTROLS
  893.  
  894.  move.w #4,OptScrn
  895.  bsr DRAWOPTSCRN
  896.  move.w #0,OPTNUM
  897.  
  898.  bsr HIGHLIGHT
  899.  
  900.  bsr WAITREL
  901.  bra .rdlop
  902.  
  903. .nocontrol:
  904.  
  905. .playgame
  906.  
  907.  move.w LEVELSELECTED,PLOPT
  908.  rts
  909.  
  910. SLAVEMENU:
  911.  
  912.  move.b #'s',mors
  913.  
  914. ; Stay here until 'play game' is selected.
  915.  
  916.  move.w #5,OptScrn
  917.  bsr DRAWOPTSCRN
  918.  move.w #1,OPTNUM
  919.  
  920.  bsr HIGHLIGHT
  921.  
  922.  bsr WAITREL
  923. .rdlop:
  924.  bsr CHECKMENU
  925.  tst.w d0
  926.  blt.s .rdlop
  927.  bsr WAITREL
  928.  
  929.  cmp.w #1,d0
  930.  beq .playgame
  931.  
  932.  cmp.w #0,d0
  933.  bne .noopt
  934.  
  935.  bra READMAINMENU
  936.  
  937. .noopt:
  938.  
  939.  cmp.w #2,d0
  940.  bne .nocontrol
  941.  
  942.  bsr CHANGECONTROLS
  943.  
  944.  move.w #0,OptScrn
  945.  bsr DRAWOPTSCRN
  946.  move.w #0,OPTNUM
  947.  
  948.  bsr HIGHLIGHT
  949.  
  950.  bsr WAITREL
  951.  bra .rdlop
  952.  
  953. .nocontrol:
  954. .playgame:
  955.  
  956.  rts
  957.  
  958. TWOPLAYER:
  959.  move.w #0,OldEnergy
  960.  move.w #127,Energy
  961.  jsr EnergyBar
  962.  
  963.  move.w #63,OldAmmo
  964.  move.w #0,Ammo
  965.  jsr AmmoBar
  966.  move.w #0,OldAmmo
  967.  
  968.  move.w #127,PLR1_energy
  969.  move.w #127,PLR2_energy 
  970.  move.w #160,PLR1_GunData    ; 10 shots pistol
  971.  st PLR1_GunData+7
  972.  
  973.  st.b PLR1_GunData+32+7
  974.  move.w #80*4,PLR1_GunData+32
  975.  
  976.  st.b PLR1_GunData+64+7
  977.  move.w #80*4,PLR1_GunData+64
  978.  
  979.  st.b PLR1_GunData+32*3+7
  980.  move.w #80*4,PLR1_GunData+32*3
  981.  
  982.  st.b PLR1_GunData+32*4+7
  983.  move.w #80*4,PLR1_GunData+32*4
  984.  
  985.  st.b PLR1_GunData+32*7+7
  986.  move.w #80*4,PLR1_GunData+32*7
  987.  
  988.  move.b #0,PLR1_GunSelected
  989.  
  990.  move.w #160,PLR2_GunData    ; 10 shots pistol
  991.  st PLR2_GunData+7
  992.  st.b PLR2_GunData+32+7
  993.  move.w #80*4,PLR2_GunData+32
  994.  
  995.  st.b PLR2_GunData+64+7
  996.  move.w #80*4,PLR2_GunData+64
  997.  
  998.  st.b PLR2_GunData+32*3+7
  999.  move.w #80*4,PLR2_GunData+32*3
  1000.  
  1001.  st.b PLR2_GunData+32*4+7
  1002.  move.w #80*4,PLR2_GunData+32*4
  1003.  
  1004.  st.b PLR2_GunData+32*7+7
  1005.  move.w #80*4,PLR2_GunData+32*7
  1006.  move.b #0,PLR2_GunSelected
  1007.  rts
  1008.  
  1009. newdum:
  1010.  rts
  1011.  
  1012. DEFAULTGAME:
  1013.  move.w #0,MAXLEVEL
  1014.  move.w #5,CHEATNUM
  1015.  move.l #CHEATFRAME-200000,CHEATPTR
  1016.  
  1017.  move.w #0,OldEnergy
  1018.  move.w #127,Energy
  1019.  jsr EnergyBar
  1020.  
  1021.  move.w #63,OldAmmo
  1022.  move.w #0,Ammo
  1023.  jsr AmmoBar
  1024.  move.w #0,OldAmmo
  1025.  
  1026.  move.w #127,PLR1_energy
  1027.  move.w #127,PLR2_energy 
  1028.  move.w #160,PLR1_GunData    ; 10 shots pistol
  1029.  st PLR1_GunData+7
  1030.  clr.b PLR1_GunData+32+7
  1031.  clr.w PLR1_GunData+32
  1032.  clr.b PLR1_GunData+64+7
  1033.  clr.w PLR1_GunData+64
  1034.  clr.b PLR1_GunData+32*3+7
  1035.  clr.w PLR1_GunData+32*3
  1036.  clr.b PLR1_GunData+32*4+7
  1037.  clr.w PLR1_GunData+32*4
  1038.  clr.b PLR1_GunData+32*7+7
  1039.  clr.w PLR1_GunData+32*7
  1040.  move.b #0,PLR1_GunSelected
  1041.  
  1042. ProtChkILev1:
  1043. ************************************************
  1044. * TEMPORARY MEASURE: REMOVE BEFORE RELEASE *****
  1045. ************************************************
  1046.  
  1047.  
  1048. ************************************************
  1049.  
  1050.  move.w #160,PLR2_GunData    ; 10 shots pistol
  1051.  st PLR2_GunData+7
  1052.  clr.b PLR2_GunData+32+7
  1053.  clr.w PLR2_GunData+32
  1054.  clr.b PLR2_GunData+64+7
  1055.  clr.w PLR2_GunData+64
  1056.  clr.b PLR2_GunData+32*3+7
  1057.  clr.w PLR2_GunData+32*3
  1058.  clr.b PLR2_GunData+32*4+7
  1059.  clr.w PLR2_GunData+32*4
  1060.  clr.b PLR2_GunData+32*7+7
  1061.  clr.w PLR2_GunData+32*7
  1062.  move.b #0,PLR2_GunSelected
  1063.  
  1064.  bsr CALCPASSWORD
  1065.  
  1066.  rts
  1067.  
  1068. CHKPROT: dc.w 0
  1069.  
  1070. GETPARITY:
  1071.  move.w #6,d3
  1072. .calcparity:
  1073.  btst d3,d0
  1074.  beq.s .nochange
  1075.  bchg #7,d0
  1076. .nochange:
  1077.  dbra d3,.calcparity
  1078.  rts
  1079.  
  1080. CHECKPARITY:
  1081.  move.w #6,d3
  1082.  move.b #$0,d2
  1083. .calcparity:
  1084.  btst d3,d0
  1085.  beq.s .nochange
  1086.  bchg #7,d2
  1087. .nochange:
  1088.  dbra d3,.calcparity
  1089.  move.b d0,d1
  1090.  and.b #$80,d1
  1091.  eor.b d1,d2
  1092.  sne.s d5
  1093.  rts
  1094.  
  1095. CALCPASSWORD:
  1096.  move.b PLR1_energy+1,d0
  1097.  bsr GETPARITY
  1098.  move.b d0,PASSBUFFER
  1099.  moveq #0,d0
  1100.  tst.b PLR1_GunData+32+7
  1101.  sne d0
  1102.  lsl.w #1,d0
  1103.  tst.b PLR1_GunData+64+7
  1104.  sne d0
  1105.  lsl.w #1,d0
  1106.  tst.b PLR1_GunData+32*4+7
  1107.  sne d0
  1108.  lsl.w #1,d0
  1109.  tst.b PLR1_GunData+32*7+7
  1110.  sne d0
  1111.  lsr.w #3,d0
  1112.  and.b #%11110000,d0
  1113.  or.b MAXLEVEL+1,d0
  1114.  move.b d0,PASSBUFFER+1
  1115.  eor.b #%10110101,d0
  1116.  neg.b d0
  1117.  add.b #50,d0
  1118.  move.b d0,PASSBUFFER+7
  1119.  
  1120.  move.w PLR1_GunData,d0
  1121.  lsr.w #3,d0
  1122.  bsr GETPARITY
  1123.  move.b d0,PASSBUFFER+2
  1124.  move.w PLR1_GunData+32,d0
  1125.  lsr.w #3,d0
  1126.  bsr GETPARITY
  1127.  move.b d0,PASSBUFFER+3
  1128.  move.w PLR1_GunData+32*2,d0
  1129.  lsr.w #3,d0
  1130.  bsr GETPARITY
  1131.  move.b d0,PASSBUFFER+4
  1132.  move.w PLR1_GunData+32*4,d0
  1133.  lsr.w #3,d0
  1134.  bsr GETPARITY
  1135.  move.b d0,PASSBUFFER+5
  1136.  move.w PLR1_GunData+32*7,d0
  1137.  lsr.w #3,d0
  1138.  bsr GETPARITY
  1139.  move.b d0,PASSBUFFER+6
  1140.  
  1141.  move.w #3,d0
  1142.  move.l #PASSBUFFER,a0
  1143.  move.l #PASSBUFFER+8,a1
  1144.  move.l #PASS,a2
  1145.  moveq #0,d4
  1146. mixemup:
  1147.  move.b (a0)+,d1
  1148.  move.b -(a1),d2
  1149.  not.b d2
  1150.  moveq #0,d3
  1151.  lsr.b #1,d1
  1152.  addx.w d3,d3
  1153.  lsr.b #1,d2
  1154.  addx.w d3,d3
  1155.  lsr.b #1,d1
  1156.  addx.w d3,d3
  1157.  lsr.b #1,d2
  1158.  addx.w d3,d3
  1159.  lsr.b #1,d1
  1160.  addx.w d3,d3
  1161.  lsr.b #1,d2
  1162.  addx.w d3,d3
  1163.  lsr.b #1,d1
  1164.  addx.w d3,d3
  1165.  lsr.b #1,d2
  1166.  addx.w d3,d3
  1167.  lsr.b #1,d1
  1168.  addx.w d3,d3
  1169.  lsr.b #1,d2
  1170.  addx.w d3,d3
  1171.  lsr.b #1,d1
  1172.  addx.w d3,d3
  1173.  lsr.b #1,d2
  1174.  addx.w d3,d3
  1175.  lsr.b #1,d1
  1176.  addx.w d3,d3
  1177.  lsr.b #1,d2
  1178.  addx.w d3,d3
  1179.  lsr.b #1,d1
  1180.  addx.w d3,d3
  1181.  lsr.b #1,d2
  1182.  addx.w d3,d3
  1183.  move.w d3,(a2)+
  1184.  
  1185.  dbra d0,mixemup
  1186.  
  1187.  move.l #PASSWORDLINE+12,a0
  1188.  move.l #PASS,a1
  1189.  move.w #7,d0
  1190. putinpassline:
  1191.  move.b (a1),d1
  1192.  and.b #%1111,d1
  1193.  add.b #65,d1
  1194.  move.b d1,(a0)+
  1195.  move.b (a1)+,d1
  1196.  lsr.b #4,d1
  1197.  and.b #%1111,d1
  1198.  add.b #65,d1
  1199.  move.b d1,(a0)+
  1200.  dbra d0,putinpassline
  1201.  rts
  1202.  
  1203. PASSLINETOGAME:
  1204.  move.l #PASSWORDLINE+12,a0
  1205.  move.l #PASS,a1
  1206.  move.w #7,d0
  1207. getbuff:
  1208.  move.b (a0)+,d1
  1209.  move.b (a0)+,d2
  1210.  sub.b #65,d1
  1211.  sub.b #65,d2
  1212.  and.b #%1111,d1
  1213.  and.b #%1111,d2
  1214.  lsl.b #4,d2
  1215.  or.b d2,d1
  1216.  move.b d1,(a1)+
  1217.  dbra d0,getbuff
  1218.  
  1219.  move.l #PASS,a0
  1220.  move.l #PASSBUFFER,a1
  1221.  move.l #PASSBUFFER+8,a2
  1222.  move.w #3,d0
  1223.  moveq #0,d4
  1224. unmix:
  1225.  move.w (a0)+,d1
  1226.  moveq #0,d2
  1227.  moveq #0,d3
  1228.  lsr.w #1,d1
  1229.  addx.w d3,d3
  1230.  lsr.w #1,d1
  1231.  addx.w d2,d2
  1232.  lsr.w #1,d1
  1233.  addx.w d3,d3
  1234.  lsr.w #1,d1
  1235.  addx.w d2,d2
  1236.  lsr.w #1,d1
  1237.  addx.w d3,d3
  1238.  lsr.w #1,d1
  1239.  addx.w d2,d2
  1240.  lsr.w #1,d1
  1241.  addx.w d3,d3
  1242.  lsr.w #1,d1
  1243.  addx.w d2,d2
  1244.  lsr.w #1,d1
  1245.  addx.w d3,d3
  1246.  lsr.w #1,d1
  1247.  addx.w d2,d2
  1248.  lsr.w #1,d1
  1249.  addx.w d3,d3
  1250.  lsr.w #1,d1
  1251.  addx.w d2,d2
  1252.  lsr.w #1,d1
  1253.  addx.w d3,d3
  1254.  lsr.w #1,d1
  1255.  addx.w d2,d2
  1256.  lsr.w #1,d1
  1257.  addx.w d3,d3
  1258.  lsr.w #1,d1
  1259.  addx.w d2,d2
  1260.  not.b d3
  1261.  move.b d3,-(a2)
  1262.  move.b d2,(a1)+
  1263.  dbra d0,unmix
  1264.  
  1265.  move.b PASSBUFFER,d0
  1266.  bsr CHECKPARITY
  1267.  tst.b d5
  1268.  bne illega
  1269.  move.b PASSBUFFER+2,d0
  1270.  bsr CHECKPARITY
  1271.  tst.b d5
  1272.  bne illega
  1273.  move.b PASSBUFFER+3,d0
  1274.  bsr CHECKPARITY
  1275.  tst.b d5
  1276.  bne illega
  1277.  move.b PASSBUFFER+4,d0
  1278.  bsr CHECKPARITY
  1279.  tst.b d5
  1280.  bne illega
  1281.  move.b PASSBUFFER+5,d0
  1282.  bsr CHECKPARITY
  1283.  tst.b d5
  1284.  bne illega
  1285.  move.b PASSBUFFER+6,d0
  1286.  bsr CHECKPARITY
  1287.  tst.b d5
  1288.  bne illega
  1289.  
  1290.  move.b PASSBUFFER+1,d0
  1291.  eor.b #%10110101,d0
  1292.  neg.b d0
  1293.  add.b #50,d0
  1294.  cmp.b PASSBUFFER+7,d0
  1295.  bne illega
  1296.  
  1297.  move.w #0,d0
  1298.  rts
  1299.  
  1300. illega:
  1301.  
  1302.  move.w #-1,d0
  1303.  
  1304.  rts
  1305.  
  1306. PASSBUFFER:
  1307.  ds.b 8
  1308.  
  1309. CHECKBUFFER: ds.b 8
  1310.  
  1311. PASS:
  1312.  ds.b 16
  1313.  
  1314. **************************************************
  1315.  
  1316. CHANGECONTROLS:
  1317.  
  1318.  move.w #6,OptScrn
  1319.  bsr DRAWOPTSCRN
  1320.  move.w #0,OPTNUM
  1321.  bsr HIGHLIGHT
  1322.  bsr WAITREL
  1323.  
  1324. .rdlop:
  1325.  bsr CHECKMENU
  1326.  tst.w d0
  1327.  blt.s .rdlop
  1328.  
  1329.  cmp.w #12,d0
  1330.  beq .backtomain
  1331.  
  1332.  move.l #KEY_LINES,a0
  1333.  move.w d0,d1
  1334.  muls #40,d1
  1335.  add.l d1,a0
  1336.  add.w #32,a0
  1337.  move.l #$20202020,(a0)
  1338.  movem.l d0/a0,-(a7)
  1339.  bsr JUSTDRAWIT
  1340.  movem.l (a7)+,d0/a0 
  1341.  
  1342.  clr.b lastpressed
  1343.  
  1344. .wtkey
  1345.  tst.b lastpressed
  1346.  beq .wtkey
  1347.  
  1348.  move.l #CONTROLBUFFER,a1
  1349.  moveq #0,d1
  1350.  move.b lastpressed,d1
  1351.  move.b d1,(a1,d0.w)
  1352.  move.l #KVALTOASC,a1
  1353.  move.l (a1,d1.w*4),(a0)
  1354.  bsr JUSTDRAWIT
  1355.  bsr WAITREL
  1356.  bra .rdlop
  1357.  
  1358. .backtomain:
  1359.  rts
  1360.  
  1361. **************************************************
  1362.  
  1363.  
  1364. MAXLEVEL: dc.w 0
  1365.  
  1366. SHOWCREDITS:
  1367.  move.w #2,OptScrn
  1368.  bsr DRAWOPTSCRN
  1369.  move.w #0,OPTNUM
  1370.  bsr HIGHLIGHT
  1371.  
  1372.  bsr WAITREL
  1373.  
  1374. .rdlop:
  1375.  bsr CHECKMENU
  1376.  tst.w d0
  1377.  blt.s .rdlop
  1378.  
  1379.  bra READMAINMENU
  1380.  
  1381. HELDDOWN:
  1382.  dc.w 0
  1383.  
  1384. WAITREL:
  1385.  
  1386.  movem.l d0/d1/d2/d3,-(a7)
  1387.  
  1388.  move.l #KeyMap,a5
  1389. WAITREL2:
  1390.  btst #7,$bfe001
  1391.  beq.s WAITREL2
  1392.  
  1393.  IFEQ CD32VER
  1394.  tst.b $40(a5)
  1395.  bne.s WAITREL2
  1396.  tst.b $44(a5)
  1397.  bne.s WAITREL2
  1398.  tst.b $4c(a5)
  1399.  bne.s WAITREL2
  1400.  tst.b $4d(a5)
  1401.  bne.s WAITREL2
  1402.  ENDC
  1403.  
  1404.  btst #1,$dff00c
  1405.  sne d0
  1406.  btst #1,$dff00d
  1407.  sne d1
  1408.  btst #0,$dff00c
  1409.  sne d2
  1410.  btst #0,$dff00d
  1411.  sne d3
  1412.  
  1413.  eor.b d0,d2
  1414.  eor.b d1,d3
  1415.  tst.b d2
  1416.  bne.s WAITREL2
  1417.  tst.b d3
  1418.  bne.s WAITREL2
  1419.  
  1420.  
  1421.  movem.l (a7)+,d0/d1/d2/d3
  1422.  rts
  1423.  
  1424. PUTINLINE:
  1425.  moveq #39,d0
  1426. pill
  1427.  move.b (a0)+,(a1)+
  1428.  dbra d0,pill
  1429.  rts
  1430.  
  1431. CHECKMENU:
  1432.  btst #1,$dff00c
  1433.  sne d0
  1434.  btst #1,$dff00d
  1435.  sne d1
  1436.  btst #0,$dff00c
  1437.  sne d2
  1438.  btst #0,$dff00d
  1439.  sne d3
  1440.  
  1441.  eor.b d0,d2
  1442.  eor.b d1,d3
  1443.  
  1444.  move.l #KeyMap,a5
  1445.  move.b $4c(a5),d0
  1446.  move.b $4d(a5),d1
  1447.  or.b d1,d3
  1448.  or.b d0,d2
  1449.  
  1450.  move.w OptScrn,d0
  1451.  move.l #MENUDATA,a0
  1452.  move.l 4(a0,d0.w*8),a0    ; opt data
  1453.  
  1454.  move.w OPTNUM,d0
  1455.  
  1456.  tst.b d2
  1457.  beq.s NOPREV
  1458.  
  1459.  
  1460.  sub.w #1,d0
  1461.  bge.s NOPREV
  1462.  
  1463.  move.w #0,d0 
  1464.  
  1465. NOPREV:
  1466.  
  1467.  tst.b d3
  1468.  beq.s NONEXT
  1469.  
  1470.  bsr WAITREL
  1471.  
  1472.  add.w #1,d0
  1473.  tst.w (a0,d0.w*8)
  1474.  bge.s NONEXT
  1475.  
  1476.  subq #1,d0
  1477.  
  1478. NONEXT:
  1479.  
  1480.  cmp.w OPTNUM,d0
  1481.  beq.s .nochange
  1482.  
  1483.  bsr HIGHLIGHT
  1484.  move.w d0,OPTNUM
  1485.  bsr HIGHLIGHT
  1486.  bsr WAITREL
  1487.  
  1488. .nochange:
  1489.  
  1490.  move.w #-1,d0
  1491.  
  1492.  btst #7,$bfe001
  1493.  beq.s select
  1494.  move.b $40(a5),d1
  1495.  or.b $44(a5),d1
  1496.  tst.b d1
  1497.  beq.s noselect
  1498.  
  1499. select:
  1500.  bsr WAITREL
  1501.  move.w OPTNUM,d0
  1502. noselect:
  1503.  
  1504.  rts
  1505.  
  1506. HIGHLIGHT:
  1507.  
  1508.  SAVEREGS
  1509.  
  1510.  move.w OptScrn,d0
  1511.  move.l #MENUDATA,a0
  1512.  move.l 4(a0,d0.w*8),a0
  1513.  move.w OPTNUM,d0
  1514.  lea (a0,d0.w*8),a0
  1515.  move.w (a0)+,d0    ;left
  1516.  move.w (a0)+,d1    ;top
  1517.  move.w (a0)+,d2    ;width
  1518.  
  1519.  muls #16*8,d1
  1520.  move.l OPTSPRADDR,a1
  1521.  add.w d1,a1
  1522.  add.w #8+16,a1
  1523.  move.l #SCRTOSPR2,a5
  1524.  adda.w d0,a5
  1525.  adda.w d0,a5
  1526.  
  1527. NOTLOP:
  1528.  
  1529.  move.w (a5)+,d3
  1530.  lea (a1,d3.w),a2
  1531.  not.b (a2)
  1532.  not.b 16(a2)
  1533.  not.b 32(a2)
  1534.  not.b 48(a2)
  1535.  not.b 64(a2)
  1536.  not.b 80(a2)
  1537.  not.b 96(a2)
  1538.  not.b 112(a2)
  1539.  not.b 128(a2)
  1540.  subq #1,d2
  1541.  bgt.s NOTLOP
  1542.  
  1543.  GETREGS
  1544.  rts
  1545.  
  1546. SCRTOSPR2:
  1547. val SET 0
  1548.  REPT 6
  1549.  dc.w val+0
  1550.  dc.w val+1
  1551.  dc.w val+2
  1552.  dc.w val+3
  1553.  dc.w val+4
  1554.  dc.w val+5
  1555.  dc.w val+6
  1556.  dc.w val+7
  1557. val SET val+258*16
  1558.  ENDR
  1559.  
  1560. CLROPTSCRN:
  1561.  
  1562.  move.l #$2cdfea,d0
  1563.  move.w (a4,d0.l),d0
  1564.  add.w d0,RVAL2
  1565.  
  1566.  move.l OPTSPRADDR,a0
  1567.  lea 16(a0),a1
  1568.  lea 16+(258*16)(a0),a2
  1569.  lea 16+(258*16*2)(a0),a3
  1570.  lea 16+(258*16*3)(a0),a4
  1571.  lea 258*16(a4),a0
  1572.  
  1573.  move.w #256,d0
  1574.  moveq #0,d1
  1575. CLRLOP:
  1576.  move.l d1,(a0)+
  1577.  move.l d1,(a0)+
  1578.  move.l d1,(a0)+
  1579.  move.l d1,(a0)+
  1580.  move.l d1,(a1)+
  1581.  move.l d1,(a1)+
  1582.  move.l d1,(a1)+
  1583.  move.l d1,(a1)+
  1584.  move.l d1,(a2)+
  1585.  move.l d1,(a2)+
  1586.  move.l d1,(a2)+
  1587.  move.l d1,(a2)+
  1588.  move.l d1,(a3)+
  1589.  move.l d1,(a3)+
  1590.  move.l d1,(a3)+
  1591.  move.l d1,(a3)+
  1592.  move.l d1,(a4)+
  1593.  move.l d1,(a4)+
  1594.  move.l d1,(a4)+
  1595.  move.l d1,(a4)+
  1596.  dbra d0,CLRLOP
  1597.  
  1598.  move.l OPTSPRADDR,a0
  1599.  move.w #44*256+64,(a0)
  1600.  move.w #44*256+2,8(a0)
  1601.  add.l #258*16,a0
  1602.  
  1603.  move.w #44*256+96,(a0)
  1604.  move.w #44*256+2,8(a0)
  1605.  add.l #258*16,a0
  1606.  
  1607.  move.w #44*256+128,(a0)
  1608.  move.w #44*256+2,8(a0)
  1609.  add.l #258*16,a0
  1610.  
  1611.  move.w #44*256+160,(a0)
  1612.  move.w #44*256+2,8(a0)
  1613.  add.l #258*16,a0
  1614.  
  1615.  move.w #44*256+192,(a0)
  1616.  move.w #44*256+2,8(a0)
  1617.  
  1618.  rts
  1619.  
  1620. DRAWOPTSCRN:
  1621.  
  1622.  bsr CLROPTSCRN
  1623.  
  1624. JUSTDRAWIT:
  1625.  
  1626.  move.l #font,a0
  1627.  move.l #MENUDATA,a1
  1628.  move.w OptScrn,d0
  1629.  move.l (a1,d0.w*8),a1
  1630.  
  1631.  move.l OPTSPRADDR,a3
  1632.  add.l #16,a3
  1633.  moveq #0,d2
  1634.  
  1635.  move.w #31,d0
  1636. linelop:
  1637.  move.w #39,d1
  1638.  move.l #SCRTOSPR,a4
  1639.  move.l a3,a2
  1640. charlop:
  1641.  move.b (a1)+,d2
  1642.  lea (a0,d2.w*8),a5
  1643.  move.b (a5)+,(a2)
  1644.  move.b (a5)+,16(a2)
  1645.  move.b (a5)+,32(a2)
  1646.  move.b (a5)+,48(a2)
  1647.  move.b (a5)+,64(a2)
  1648.  move.b (a5)+,80(a2)
  1649.  move.b (a5)+,96(a2)
  1650.  move.b (a5),112(a2)
  1651.  add.w (a4)+,a2
  1652.  dbra d1,charlop
  1653.  add.w #16*8,a3
  1654.  dbra d0,linelop
  1655.  
  1656.  rts
  1657.   
  1658. SCRTOSPR:
  1659.  dc.w 1,1,1,1,1,1,1,258*16-7
  1660.  dc.w 1,1,1,1,1,1,1,258*16-7
  1661.  dc.w 1,1,1,1,1,1,1,258*16-7
  1662.  dc.w 1,1,1,1,1,1,1,258*16-7
  1663.  dc.w 1,1,1,1,1,1,1,258*16-7
  1664.  dc.w 1,1,1,1,1,1,1,258*16-7
  1665.   
  1666. OPTNUM: dc.w 0
  1667. OptScrn: dc.w 0
  1668.  
  1669. MENUDATA:
  1670. ;0
  1671.  dc.l ONEPLAYERMENU_TXT
  1672.  dc.l ONEPLAYERMENU_OPTS
  1673. ;1
  1674.  dc.l INSTRUCTIONS_TXT
  1675.  dc.l INSTRUCTIONS_OPTS
  1676. ;2
  1677.  dc.l CREDITMENU_TXT
  1678.  dc.l CREDITMENU_OPTS
  1679. ;3
  1680.  dc.l ASKFORDISK_TXT
  1681.  dc.l ASKFORDISK_OPTS
  1682. ;4
  1683. ; dc.l ONEPLAYERMENU_TXT
  1684. ; dc.l ONEPLAYERMENU_OPTS
  1685.  dc.l MASTERPLAYERMENU_TXT
  1686.  dc.l MASTERPLAYERMENU_OPTS
  1687. ;5
  1688.  dc.l SLAVEPLAYERMENU_TXT
  1689.  dc.l SLAVEPLAYERMENU_OPTS
  1690. ;6
  1691.  dc.l CONTROL_TXT
  1692.  dc.l CONTROL_OPTS
  1693. ;7
  1694.  dc.l PROTMENU_TXT
  1695.  dc.l CONTROL_OPTS
  1696.  
  1697. ASKFORDISK_TXT:
  1698. ;      0123456789012345678901234567890123456789
  1699.  dc.b '                                        ' ;0
  1700.  dc.b '                                        ' ;1
  1701.  dc.b '                                        ' ;2
  1702.  dc.b '                                        ' ;3
  1703.  dc.b '                                        ' ;4
  1704.  dc.b '                                        ' ;5
  1705.  dc.b '                                        ' ;6
  1706.  dc.b '                                        ' ;7
  1707.  dc.b '                                        ' ;8
  1708.  dc.b '                                        ' ;9
  1709.  dc.b '                                        ' ;0
  1710.  dc.b '                                        ' ;1
  1711.  dc.b '                                        ' ;2
  1712.  dc.b '          INSERT LEVEL DISK             ' ;3
  1713.  dc.b '                                        ' ;4
  1714.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  1715.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  1716.  dc.b '               FINISHES                 ' ;7
  1717.  dc.b '                                        ' ;8
  1718.  dc.b '                                        ' ;9
  1719.  dc.b '                                        ' ;0
  1720.  dc.b '                                        ' ;1
  1721.  dc.b '                                        ' ;2
  1722.  dc.b '                                        ' ;3
  1723.  dc.b '                                        ' ;4
  1724.  dc.b '                                        ' ;5
  1725.  dc.b '                                        ' ;6
  1726.  dc.b '                                        ' ;7
  1727.  dc.b '                                        ' ;8
  1728.  dc.b '                                        ' ;9
  1729.  dc.b '                                        ' ;0
  1730.  dc.b '                                        ' ;1
  1731.  
  1732. ASKFORDISK_OPTS:
  1733.  dc.w -1
  1734.  
  1735.  
  1736. ONEPLAYERMENU_TXT:
  1737. ;      0123456789012345678901234567890123456789
  1738.  dc.b '                                        ' ;0
  1739.  dc.b '                                        ' ;1
  1740.  dc.b '                                        ' ;2
  1741.  dc.b '                                        ' ;3
  1742.  dc.b '                                        ' ;4
  1743.  dc.b '                                        ' ;5
  1744.  dc.b '                                        ' ;6
  1745.  dc.b '                                        ' ;7
  1746.  dc.b '                                        ' ;8
  1747.  dc.b '                                        ' ;9
  1748.  dc.b '                                        ' ;0
  1749. CURRENTLEVELLINE:
  1750.  dc.b '         *** A.F DEMO LEVEL ***         ' ;1 
  1751.  dc.b '                                        ' ;2
  1752.  dc.b '                1 PLAYER                ' ;3
  1753.  dc.b '                                        ' ;4
  1754.  dc.b '               PLAY  GAME               ' ;5
  1755.  dc.b '                                        ' ;6
  1756.  dc.b '            CONTROL  OPTIONS            ' ;7
  1757.  dc.b '                                        ' ;8
  1758.  dc.b '              GAME CREDITS              ' ;9
  1759.  dc.b '                                        ' ;0
  1760.  dc.b '                PASSWORD                ' ;1
  1761.  dc.b '                                        ' ;2
  1762. PASSWORDLINE:
  1763.  dc.b '                                        ' ;3
  1764.  dc.b '                                        ' ;4
  1765.  dc.b '                  QUIT                  ' ;5
  1766.  dc.b '                                        ' ;6
  1767.  dc.b '                                        ' ;7
  1768.  dc.b '                                        ' ;8
  1769.  dc.b '                                        ' ;9
  1770.  dc.b '                                        ' ;0
  1771.  dc.b '                                        ' ;1
  1772.  
  1773. ONEPLAYERMENU_OPTS:
  1774.  dc.w 16,13,8,1
  1775.  dc.w 15,15,10,1
  1776.  dc.w 12,17,16,1
  1777.  dc.w 14,19,12,1
  1778.  dc.w 12,23,16,1
  1779.  dc.w 18,25,4,1
  1780.  dc.w -1
  1781.  
  1782.  
  1783. MASTERPLAYERMENU_TXT:
  1784. ;      0123456789012345678901234567890123456789
  1785.  dc.b '                                        ' ;0
  1786.  dc.b '                                        ' ;1
  1787.  dc.b '                                        ' ;2
  1788.  dc.b '                                        ' ;3
  1789.  dc.b '                                        ' ;4
  1790.  dc.b '                                        ' ;5
  1791.  dc.b '                                        ' ;6
  1792.  dc.b '                                        ' ;7
  1793.  dc.b '                                        ' ;8
  1794.  dc.b '                                        ' ;9
  1795.  dc.b '                                        ' ;0
  1796.  dc.b '                                        ' ;1
  1797.  dc.b '            2 PLAYER  MASTER            ' ;2
  1798.  dc.b '                                        ' ;3
  1799. CURRENTLEVELLINEM:
  1800.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  1801.  dc.b '                                        ' ;5
  1802.  dc.b '               PLAY  GAME               ' ;6
  1803.  dc.b '                                        ' ;7
  1804.  dc.b '            CONTROL  OPTIONS            ' ;8
  1805.  dc.b '                                        ' ;9
  1806.  dc.b '                                        ' ;0
  1807.  dc.b '                                        ' ;1
  1808.  dc.b '                                        ' ;2
  1809.  dc.b '                                        ' ;3
  1810.  dc.b '                                        ' ;4
  1811.  dc.b '                                        ' ;5
  1812.  dc.b '                                        ' ;6
  1813.  dc.b '                                        ' ;7
  1814.  dc.b '                                        ' ;8
  1815.  dc.b '                                        ' ;9
  1816.  dc.b '                                        ' ;0
  1817.  dc.b '                                        ' ;1
  1818.  
  1819. MASTERPLAYERMENU_OPTS:
  1820.  dc.w 12,12,16,1
  1821.  dc.w 6,14,28,1
  1822.  dc.w 15,16,10,1
  1823.  dc.w 12,18,16,1
  1824.  dc.w -1
  1825.  
  1826. SLAVEPLAYERMENU_TXT:
  1827. ;      0123456789012345678901234567890123456789
  1828.  dc.b '                                        ' ;0
  1829.  dc.b '                                        ' ;1
  1830.  dc.b '                                        ' ;2
  1831.  dc.b '                                        ' ;3
  1832.  dc.b '                                        ' ;4
  1833.  dc.b '                                        ' ;5
  1834.  dc.b '                                        ' ;6
  1835.  dc.b '                                        ' ;7
  1836.  dc.b '                                        ' ;8
  1837.  dc.b '                                        ' ;9
  1838.  dc.b '                                        ' ;9
  1839.  dc.b '                                        ' ;1
  1840.  dc.b '             2 PLAYER SLAVE             ' ;4
  1841.  dc.b '                                        ' ;3
  1842.  dc.b '               PLAY  GAME               ' ;2
  1843.  dc.b '                                        ' ;5
  1844.  dc.b '            CONTROL  OPTIONS            ' ;0
  1845.  dc.b '                                        ' ;1
  1846.  dc.b '                                        ' ;3
  1847.  dc.b '                                        ' ;7
  1848.  dc.b '                                        ' ;7
  1849.  dc.b '                                        ' ;3
  1850.  dc.b '                                        ' ;3
  1851.  dc.b '                                        ' ;3
  1852.  dc.b '                                        ' ;4
  1853.  dc.b '                                        ' ;5
  1854.  dc.b '                                        ' ;6
  1855.  dc.b '                                        ' ;7
  1856.  dc.b '                                        ' ;9
  1857.  dc.b '                                        ' ;9
  1858.  dc.b '                                        ' ;9
  1859.  dc.b '                                        ' ;9
  1860.  
  1861.  
  1862. PROTMENU_TXT:
  1863. ;      0123456789012345678901234567890123456789
  1864.  dc.b '                                        ' ;0
  1865.  dc.b '                                        ' ;1
  1866.  dc.b '                                        ' ;2
  1867.  dc.b '                                        ' ;3
  1868.  dc.b '                                        ' ;4
  1869.  dc.b '                                        ' ;5
  1870.  dc.b '                                        ' ;6
  1871.  dc.b '                                        ' ;7
  1872.  dc.b '                                        ' ;8
  1873.  dc.b '                                        ' ;9
  1874.  dc.b '                                        ' ;0
  1875.  dc.b '                                        ' ;1
  1876.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  1877.  dc.b '                                        ' ;3
  1878. PROTLINE:
  1879.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  1880.  dc.b '                                        ' ;5
  1881.  dc.b '                                        ' ;6
  1882.  dc.b '                                        ' ;7
  1883.  dc.b '                                        ' ;8
  1884.  dc.b '                                        ' ;9
  1885.  dc.b '                                        ' ;0
  1886.  dc.b '                                        ' ;1
  1887.  dc.b '                                        ' ;2
  1888.  dc.b '                                        ' ;3
  1889.  dc.b '                                        ' ;4
  1890.  dc.b '                                        ' ;5
  1891.  dc.b '                                        ' ;6
  1892.  dc.b '                                        ' ;7
  1893.  dc.b '                                        ' ;9
  1894.  dc.b '                                        ' ;0
  1895.  dc.b '                                        ' ;1
  1896.  
  1897.  
  1898.  
  1899. SLAVEPLAYERMENU_OPTS:
  1900.  dc.w 12,12,16,1
  1901.  dc.w 15,14,10,1
  1902.  dc.w 12,16,16,1
  1903.  dc.w -1
  1904.  
  1905.  
  1906. PLAYER_OPTS:
  1907. ;      0123456789012345678901234567890123456789
  1908.  dc.b '                 1 PLAYER               '
  1909.  dc.b '             2  PLAYER MASTER           '
  1910.  dc.b '              2 PLAYER SLAVE            '
  1911.  
  1912. LEVEL_OPTS:
  1913. ;      0123456789012345678901234567890123456789
  1914.  dc.b '      LEVEL  1 :          THE GATE      '
  1915.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  1916.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  1917.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  1918.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  1919.  dc.b '      LEVEL  6 :         THE MINES      '
  1920.  dc.b '      LEVEL  7 :       THE FURNACE      '
  1921.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  1922.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  1923.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  1924.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  1925.  dc.b '      LEVEL 12 :           THE PIT      '
  1926.  dc.b '      LEVEL 13 :            STRATA      '
  1927.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  1928.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  1929.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  1930.  
  1931. CONTROL_TXT:
  1932. ;      0123456789012345678901234567890123456789
  1933.  dc.b '                                        ' ;0
  1934.  dc.b '                                        ' ;1
  1935.  dc.b '                                        ' ;2
  1936.  dc.b '                                        ' ;3
  1937.  dc.b '            DEFINE  CONTROLS            ' ;4
  1938.  dc.b '                                        ' ;5
  1939. KEY_LINES:
  1940.  dc.b '     TURN LEFT                  LCK     ' ;6
  1941.  dc.b '     TURN RIGHT                 RCK     ' ;7
  1942.  dc.b '     FORWARDS                   UCK     ' ;8
  1943.  dc.b '     BACKWARDS                  DCK     ' ;9
  1944.  dc.b '     FIRE                       RAL     ' ;0
  1945.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;1
  1946.  dc.b '     RUN                        RSH     ' ;2
  1947.  dc.b '     FORCE SIDESTEP             RAM     ' ;3
  1948.  dc.b '     SIDESTEP LEFT               .      ' ;4
  1949.  dc.b '     SIDESTEP RIGHT              /      ' ;5
  1950.  dc.b '     DUCK                        D      ' ;6
  1951.  dc.b '     LOOK BEHIND                 L      ' ;7
  1952.  dc.b '                                        ' ;8
  1953.  dc.b '             OTHER CONTROLS             ' ;9
  1954.  dc.b '                                        ' ;0
  1955.  dc.b ' PULSE RIFLE      1  PAUSE            P ' ;1
  1956.  dc.b ' SHOTGUN          2  QUIT           ESC ' ;2
  1957.  dc.b ' PLASMA GUN       3  MOUSE CONTROL    M ' ;3
  1958.  dc.b ' GRENADE LAUNCHER 4  JOYSTICK CONTROL J ' ;4
  1959.  dc.b ' ROCKET LAUNCHER  5  KEYBOARD CONTROL K ' ;5
  1960.  dc.b '                                        ' ;6
  1961.  dc.b '               MAIN  MENU               ' ;7
  1962.  dc.b '                                        ' ;8
  1963.  dc.b '                                        ' ;9
  1964.  dc.b '                                        ' ;0
  1965.  dc.b '                                        ' ;1
  1966.  
  1967. CONTROL_OPTS:
  1968.  dc.w 5,6,30,1
  1969.  dc.w 5,7,30,1
  1970.  dc.w 5,8,30,1
  1971.  dc.w 5,9,30,1
  1972.  dc.w 5,10,30,1
  1973.  dc.w 5,11,30,1
  1974.  dc.w 5,12,30,1
  1975.  dc.w 5,13,30,1
  1976.  dc.w 5,14,30,1
  1977.  dc.w 5,15,30,1
  1978.  dc.w 5,16,30,1
  1979.  dc.w 5,17,30,1
  1980.  dc.w 15,27,10,1
  1981.  dc.w -1
  1982.  
  1983. PLOPT: dc.w 0
  1984.  
  1985. INSTRUCTIONS_TXT:
  1986. ;      0123456789012345678901234567890123456789
  1987.  dc.b 'Main controls:                          ' ;1
  1988.  dc.b '                                        ' ;2
  1989.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  1990.  dc.b '            Turn left / right           ' ;4
  1991.  dc.b '          Right Alt = Fire              ' ;5
  1992.  dc.b '        Right Shift = Run               ' ;6
  1993.  dc.b '                  > = Slide Left        ' ;7
  1994.  dc.b '                  ? = Slide Right       ' ;8
  1995.  dc.b '              SPACE = Operate Door/Lift ' ;9
  1996.  dc.b '                  D = Duck              ' ;0
  1997.  dc.b '                  J = Joystick Control  ' ;1
  1998.  dc.b '                  K = Keyboard Control  ' ;2
  1999.  dc.b '                                        ' ;3
  2000.  dc.b '              1,2,3 = Select weapon     ' ;4
  2001.  dc.b '              ENTER = Toggle screen size' ;5
  2002.  dc.b '                ESC = Quit              ' ;6
  2003.  dc.b '                                        ' ;7
  2004.  dc.b '                                        ' ;8
  2005.  dc.b 'The one player game has no objective and' ;9
  2006.  dc.b 'the only way to finish is to die or quit' ;0
  2007.  dc.b '                                        ' ;1
  2008.  dc.b 'The two-player game is supposed to be a ' ;2
  2009.  dc.b 'fight to the death but will probably be ' ;3
  2010.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  2011.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  2012.  dc.b '                                        ' ;6
  2013.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  2014.  dc.b 'have glowing red walls and overhead     ' ;8
  2015.  dc.b 'lights. Useful for getting behind your  ' ;9
  2016.  dc.b ' opponent!                              ' ;0
  2017.  dc.b '  Just a taster of what is to come....  ' ;1
  2018.  dc.b '                                        ' ;0
  2019.  
  2020. INSTRUCTIONS_OPTS:
  2021.  dc.w 0,0,0,1
  2022.  dc.w -1
  2023.  
  2024. CREDITMENU_TXT:
  2025.  
  2026. ;      0123456789012345678901234567890123456789
  2027.  dc.b '    Programming, Game Code, Graphics    ' ;0
  2028.  dc.b '         Game Design and Manual         ' ;1
  2029.  dc.b '            Andrew Clitheroe            ' ;2
  2030.  dc.b '                                        ' ;3
  2031.  dc.b '             Alien Graphics             ' ;4
  2032.  dc.b '             Michael  Green             ' ;5
  2033.  dc.b '                                        ' ;6
  2034.  dc.b '           3D Object Designer           ' ;7
  2035.  dc.b '            Charles Blessing            ' ;8
  2036.  dc.b '                                        ' ;9
  2037.  dc.b '              Level Design              ' ;0
  2038.  dc.b 'Michael Green  Ben Chanter   Jackie Lang' ;1
  2039.  dc.b '     Kai Barrett Charles Blessing       ' ;2
  2040.  dc.b '                                        ' ;3
  2041.  dc.b '           Creative  Director           ' ;4
  2042.  dc.b '              Martyn Brown              ' ;5
  2043.  dc.b '                                        ' ;6
  2044.  dc.b '       Project Manager and Manual       ' ;7
  2045.  dc.b "            Martin O'Donnell            " ;8
  2046.  dc.b '                                        ' ;9
  2047.  dc.b '              Music + SFX               ' ;0
  2048.  dc.b '              Bjorn Lynne               ' ;1
  2049.  dc.b '                                        ' ;2
  2050.  dc.b '      Cover Illustration and Logo       ' ;3
  2051.  dc.b '             Kevin Jenkins              ' ;4
  2052.  dc.b '                                        ' ;5
  2053.  dc.b '      Packaging and Manual Design       ' ;6
  2054.  dc.b '               Paul Sharp               ' ;7
  2055.  dc.b '                                        ' ;8
  2056.  dc.b '             QA and Playtest            ' ;9
  2057.  dc.b '           Phil and The Wolves          ' ;0
  2058.  dc.b '                                        ' ;1
  2059.  
  2060.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  2061.  dc.b '                   by                   ' ;5
  2062.  dc.b '            Charles Blessing            ' ;6
  2063.  dc.b '                                        ' ;7
  2064.  dc.b '                Graphics:               ' ;8
  2065.  dc.b '                   by                   ' ;9
  2066.  dc.b '              Mike  Oakley              ' ;0
  2067.  dc.b '                                        ' ;1
  2068.  dc.b '             Title  Picture             ' ;2
  2069.  dc.b '                   by                   ' ;3
  2070.  dc.b '               Mike Green               ' ;4
  2071.  dc.b '                                        ' ;5
  2072.  dc.b ' Inspiration, incentive, moral support, ' ;6
  2073.  dc.b '     level design and plenty of tea     ' ;7
  2074.  dc.b '         generously supplied by         ' ;8
  2075.  dc.b '                                        ' ;9
  2076.  dc.b '              Jackie  Lang              ' ;0
  2077.  dc.b '                                        ' ;1
  2078.  dc.b '    Music for the last demo composed    ' ;2
  2079.  dc.b '       by the inexpressibly evil:       ' ;3
  2080.  dc.b '                                        ' ;8
  2081.  dc.b '            *BAD* BEN CHANTER           ' ;9
  2082.  dc.b '                                        ' ;0
  2083.  dc.b '    Sadly no room for music this time   ' ;1
  2084.  dc.b '                                        ' ;7
  2085.  dc.b '                                        ' ;7
  2086.  
  2087. CREDITMENU_OPTS:
  2088.  dc.w 0,0,1,1
  2089.  dc.w -1
  2090.  
  2091.  
  2092. ;      0123456789012345678901234567890123456789
  2093.  dc.b '                                        ' ;0
  2094.  dc.b '                                        ' ;1
  2095.  dc.b '                                        ' ;2
  2096.  dc.b '                                        ' ;3
  2097.  dc.b '                                        ' ;4
  2098.  dc.b '                                        ' ;5
  2099.  dc.b '                                        ' ;6
  2100.  dc.b '                                        ' ;7
  2101.  dc.b '                                        ' ;8
  2102.  dc.b '                                        ' ;9
  2103.  dc.b '                                        ' ;0
  2104.  dc.b '                                        ' ;1
  2105.  dc.b '                                        ' ;2
  2106.  dc.b '                                        ' ;3
  2107.  dc.b '                                        ' ;4
  2108.  dc.b '                                        ' ;5
  2109.  dc.b '                                        ' ;6
  2110.  dc.b '                                        ' ;7
  2111.  dc.b '                                        ' ;8
  2112.  dc.b '                                        ' ;9
  2113.  dc.b '                                        ' ;0
  2114.  dc.b '                                        ' ;1
  2115.  dc.b '                                        ' ;2
  2116.  dc.b '                                        ' ;3
  2117.  dc.b '                                        ' ;4
  2118.  dc.b '                                        ' ;5
  2119.  dc.b '                                        ' ;6
  2120.  dc.b '                                        ' ;7
  2121.  dc.b '                                        ' ;8
  2122.  dc.b '                                        ' ;9
  2123.  dc.b '                                        ' ;0
  2124.  dc.b '                                        ' ;1
  2125.  
  2126.  
  2127. ********************************************************
  2128.  
  2129. PUTIN32:
  2130.  move.w #31,d2
  2131. p32loop:
  2132.  moveq #0,d5
  2133.  move.l (a0)+,d3
  2134.  move.w d3,d4
  2135.  swap d3
  2136.  move.b d4,d5
  2137.  lsr.w #8,d4
  2138.  
  2139.  muls d0,d3
  2140.  muls d0,d4
  2141.  muls d0,d5
  2142.  lsr.l #8,d3
  2143.  lsr.l #8,d4
  2144.  lsr.l #8,d5
  2145.  move.w d3,d6
  2146.  swap d3
  2147.  move.w d6,d3
  2148.  move.w d4,d6
  2149.  swap d4
  2150.  move.w d6,d4
  2151.  move.w d5,d6
  2152.  swap d5
  2153.  move.w d6,d5
  2154.  and.w #%11110000,d3
  2155.  and.w #%11110000,d4
  2156.  and.w #%11110000,d5
  2157.  lsl.w #4,d3
  2158.  add.w d4,d3
  2159.  lsr.w #4,d5
  2160.  add.w d5,d3
  2161.  move.w d3,2(a1)
  2162.  swap d3
  2163.  swap d4
  2164.  swap d5
  2165.  and.w #%1111,d3
  2166.  and.w #%1111,d4
  2167.  and.w #%1111,d5
  2168.  lsl.w #8,d3
  2169.  lsl.w #4,d4
  2170.  add.w d4,d3
  2171.  add.w d5,d3
  2172.  move.w d3,2+(132*4)(a1)
  2173.  addq #4,a1
  2174.  dbra d2,p32loop
  2175.  
  2176.  
  2177.  rts
  2178.  
  2179. **************************************
  2180.  
  2181. FADEAMOUNT: dc.w 0
  2182. FADEVAL: dc.w 0
  2183.  
  2184. FADEUPTITLE:
  2185.  
  2186.  move.w FADEVAL,d0
  2187.  move.w FADEAMOUNT,d1
  2188. fadeuploop:
  2189.  
  2190.  move.l #TITLEPAL,a0
  2191.  move.l #TITLEPALCOP,a1
  2192.  
  2193. wvb:
  2194.  btst #5,$dff000+intreqrl
  2195.  beq.s wvb
  2196.  move.w #$20,$dff000+intreq 
  2197.  
  2198.  bsr PUTIN32
  2199.  add.w #4,a1
  2200.  bsr PUTIN32
  2201.  add.w #4,a1
  2202.  bsr PUTIN32
  2203.  add.w #4,a1
  2204.  bsr PUTIN32
  2205.  
  2206.  addq.w #4,d0
  2207.  dbra d1,fadeuploop
  2208.  
  2209.  subq #4,d0
  2210.  move.w d0,FADEVAL
  2211.  
  2212.  rts
  2213.  
  2214. CLEARTITLEPAL:
  2215.  PRSDP
  2216.  move.l #TITLEPALCOP,a0
  2217.  move.w #7,d1
  2218. clrpal:
  2219.  move.w #31,d0
  2220. clr32
  2221.  move.w #0,2(a0)
  2222.  addq #4,a0
  2223.  dbra d0,clr32
  2224.  addq #4,a0
  2225.  dbra d1,clrpal
  2226.  PRSDQ
  2227.  rts
  2228.  
  2229. FADEDOWNTITLE:
  2230.  
  2231.  move.w FADEVAL,d0
  2232.  move.w FADEAMOUNT,d1
  2233. fadedownloop:
  2234.  
  2235.  move.l #TITLEPAL,a0
  2236.  move.l #TITLEPALCOP,a1
  2237.  
  2238. .wvb:
  2239.  btst #5,$dff000+intreqrl
  2240.  beq.s .wvb
  2241.  move.w #$20,$dff000+intreq 
  2242.  
  2243.  bsr PUTIN32
  2244.  add.w #4,a1
  2245.  bsr PUTIN32
  2246.  add.w #4,a1
  2247.  bsr PUTIN32
  2248.  add.w #4,a1
  2249.  bsr PUTIN32
  2250.  
  2251.  subq.w #4,d0
  2252.  dbra d1,fadedownloop
  2253.  
  2254.  addq #4,d0
  2255.  move.w d0,FADEVAL
  2256.  
  2257.  rts
  2258.  
  2259. LOADTITLESCRN2:
  2260.  
  2261.  
  2262.  move.l #MEMF_CLEAR,d1
  2263.  move.l #52400,d0
  2264.  move.l 4.w,a6
  2265.  jsr    _LVOAllocMem(a6)
  2266.  tst.l  d0
  2267.  beq    .nomem
  2268.  
  2269.  move.l d0,tempptr
  2270.  
  2271.  move.l #TITLESCRNNAME2,d1
  2272.  move.l #1005,d2
  2273.  move.l doslib,a6
  2274.  jsr -30(a6)
  2275.  move.l d0,handle
  2276.  move.l d0,d1
  2277.  move.l doslib,a6
  2278. ; move.l TITLESCRNADDR,d2
  2279.  move.l tempptr,d2
  2280.  move.l #10240*7,d3
  2281.  jsr -42(a6)
  2282.  move.l doslib,a6
  2283.  move.l handle,d1
  2284.  jsr -36(a6)
  2285.  
  2286.     
  2287.  move.l TITLESCRNADDR,a0
  2288.  move.l tempptr,d0
  2289.  
  2290.  moveq #0,d1
  2291.  lea WorkSpace,a1
  2292.  lea $0,a2
  2293.  jsr unLHA
  2294.  
  2295.   move.l tempptr,a1
  2296.  move.l #52400,d0
  2297.  CALLEXEC FreeMem
  2298.   
  2299. .nomem
  2300.  
  2301.  rts
  2302.  
  2303. tempptr dc.l 0
  2304.  
  2305.  
  2306. GETTITLEMEM:
  2307.  move.l #2,d1
  2308.  move.l #10240*7,d0
  2309.  move.l 4.w,a6
  2310.  jsr -198(a6)
  2311.  move.l d0,TITLESCRNADDR
  2312.  
  2313.  move.l #$dff000-$2cdfe4,a4
  2314.  
  2315.  move.l #2,d1
  2316.  move.l #258*16*5,d0
  2317.  move.l 4.w,a6
  2318.  jsr -198(a6)
  2319.  move.l d0,OPTSPRADDR
  2320.  
  2321.  rts
  2322.  
  2323. ProtChkJLev1:
  2324.  
  2325. PROTSETUP:
  2326.  incbin "ab3:includes/protsetupenc"
  2327.  
  2328. ; Need to: Decode protection calling
  2329. ; routine
  2330. ; use null values to call it and erase
  2331. ; it from memory
  2332. ; erase this routine and return.
  2333.  
  2334. ; include "ab3:source/protsetup"
  2335.  
  2336.  
  2337. RELEASETITLEMEM:
  2338.  move.l TITLESCRNADDR,d1
  2339.  move.l d1,a1
  2340.  move.l #10240*7,d0
  2341.  move.l 4.w,a6
  2342.  jsr -210(a6)
  2343.  
  2344.  move.l OPTSPRADDR,d1
  2345.  move.l d1,a1
  2346.  move.l #258*80,d0
  2347.  move.l 4.w,a6
  2348.  jsr -210(a6)
  2349.  rts
  2350.  
  2351.  
  2352. PROTCALLENC:
  2353. ; incbin "ab3:source/protcallenc.bin
  2354.  
  2355. ; one pass, all instructions executed.
  2356. ; must call protection routine,store
  2357. ; value somewhere, call ask routine,
  2358. ; compare returned value, if correct
  2359. ; set up all values, then return.
  2360.  
  2361.  include "ab3:source_cd32/protcallenc"
  2362.  
  2363. ENDPROT:
  2364.  
  2365. LOADTITLESCRN:
  2366.  
  2367.  move.l #TITLESCRNNAME,d1
  2368.  move.l #1005,d2
  2369.  move.l doslib,a6
  2370.  jsr -30(a6)
  2371.  move.l d0,handle
  2372.  move.l d0,d1
  2373.  move.l doslib,a6
  2374.  move.l TITLESCRNADDR,d2
  2375.  move.l #10240*7,d3
  2376.  jsr -42(a6)
  2377.  move.l doslib,a6
  2378.  move.l handle,d1
  2379.  jsr -36(a6)
  2380.  
  2381.  rts
  2382.  
  2383. RVAL2: dc.w 0
  2384.  
  2385. SETUPTITLESCRN:
  2386.  
  2387.  PRSDR
  2388.  move.l #OPTCOP,a0
  2389.  move.l #rain,a1
  2390.  move.w #255,d0
  2391. putinrain:
  2392.  move.w (a1)+,d1
  2393.  move.w d1,6(a0)
  2394.  move.w d1,6+4(a0)
  2395.  move.w d1,6+8(a0)
  2396.  move.w d1,6+12(a0)
  2397.  add.w #4*14,a0
  2398.  
  2399.  dbra d0,putinrain
  2400.  
  2401. ; Put addr into copper.
  2402.  move.l OPTSPRADDR,d0
  2403.  move.w d0,tsp0l
  2404.  swap d0
  2405.  move.w d0,tsp0h
  2406.  swap d0
  2407.  add.l #258*16,d0
  2408.  move.w d0,tsp1l
  2409.  swap d0
  2410.  move.w d0,tsp1h
  2411.  swap d0
  2412.  add.l #258*16,d0
  2413.  move.w d0,tsp2l
  2414.  swap d0
  2415.  move.w d0,tsp2h
  2416.  swap d0
  2417.  add.l #258*16,d0
  2418.  move.w d0,tsp3l
  2419.  swap d0
  2420.  move.w d0,tsp3h
  2421.  swap d0
  2422.  add.l #258*16,d0
  2423.  move.w d0,tsp4l
  2424.  swap d0
  2425.  move.w d0,tsp4h
  2426.  
  2427.  move.l #nullspr,d0
  2428.  move.w d0,tsp5l
  2429.  move.w d0,tsp6l
  2430.  move.w d0,tsp7l
  2431.  swap d0
  2432.  move.w d0,tsp5h
  2433.  move.w d0,tsp6h
  2434.  move.w d0,tsp7h 
  2435.  
  2436.  move.l TITLESCRNADDR,d0
  2437.  move.w d0,ts1l
  2438.  swap d0
  2439.  move.w d0,ts1h
  2440.  swap d0
  2441.  add.l #10240,d0
  2442.  move.w d0,ts2l
  2443.  swap d0
  2444.  move.w d0,ts2h
  2445.  swap d0
  2446.  add.l #10240,d0
  2447.  move.w d0,ts3l
  2448.  swap d0
  2449.  move.w d0,ts3h
  2450.  swap d0
  2451.  add.l #10240,d0
  2452.  move.w d0,ts4l
  2453.  swap d0
  2454.  move.w d0,ts4h
  2455.  swap d0
  2456.  add.l #10240,d0
  2457.  move.w d0,ts5l
  2458.  swap d0
  2459.  move.w d0,ts5h
  2460.  swap d0
  2461.  add.l #10240,d0
  2462.  move.w d0,ts6l
  2463.  swap d0
  2464.  move.w d0,ts6h
  2465.  swap d0
  2466.  add.l #10240,d0
  2467.  move.w d0,ts7l
  2468.  swap d0
  2469.  move.w d0,ts7h
  2470.  rts 
  2471.  
  2472. RVAL1: dc.w 0
  2473.  
  2474. DummyAdds:
  2475.  dc.l dummy-78935450
  2476.  dc.l dummy-78935450
  2477.  dc.l dummy-78935450
  2478.  dc.l dummy-78935450
  2479.  dc.l dummy-78935450
  2480.  dc.l dummy-78935450
  2481.  dc.l dummy-78935450
  2482.  dc.l dummy-78935450
  2483.  dc.l dummy-78935450
  2484.  dc.l dummy-78935450
  2485.  
  2486. dummycall
  2487.  dc.w $4e75-123
  2488.  
  2489. protspace: ds.l 200
  2490.  
  2491.  include "ab3:source_4000/LEVEL_BLURB"
  2492.  
  2493. font:
  2494.  incbin "OptFont"
  2495.  
  2496. rain: incbin "optcop"
  2497.